Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/error_hn/module/modules.frm

Text File | 1995-02-13 | 26KB | 867 lines

VERSION 2.00
Begin Form frmWPS
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0C0C0&
   Caption         =   "'The MCR Company' Windows Process Status"
   ClientHeight    =   5340
   ClientLeft      =   1110
   ClientTop       =   2385
   ClientWidth     =   9150
   Height          =   5970
   Icon            =   MODULES.FRX:0000
   Left            =   1080
   ScaleHeight     =   5340
   ScaleWidth      =   9150
   Top             =   1785
   Width           =   9210
   Begin VideoSoftElastic VSElastic4
      Align           =   5  'Fill Container
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   2640
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   4
      Top             =   2700
      Width           =   9150
      Begin VideoSoftElastic VSElastic5
         Align           =   2  'Align Bottom
         BackColor       =   &H00C0C0C0&
         BorderWidth     =   0
         ChildSpacing    =   2
         Height          =   255
         IntBkg          =   &H00C0C0C0&
         Left            =   0
         TabIndex        =   8
         Top             =   2385
         Width           =   9150
      End
      Begin MListBox MList2
         AddItemHeight   =   0
         Alignment       =   0  'None
         AllowFocusRect  =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'Normal
         CheckColor      =   &H00000000&
         CheckStyle      =   0  'Cross Style
         DrawRegions     =   7
         EnableVirtualMsgs=   0   'False
         ExtendedSelect  =   0   'False
         FallColor       =   &H00808080&
         FindDirection   =   0  'Forward
         FindResult      =   0  'Update ListIndex
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         GridColor       =   &H00808080&
         GridStyle       =   0  'Solid
         Height          =   2340
         HiliteBackColor =   &H00000000&
         HiliteForeColor =   &H00000000&
         HorizontalGrids =   0   'False
         ImageRegion     =   0
         ImageType       =   0  'None
         ItemHeight      =   210
         ItemWidth       =   1560
         Left            =   0
         ListBoxStyle    =   0  'Fixed
         MaskingColor    =   &H00FFFFFF&
         MultiColumn     =   0   'False
         MultiSelect     =   0   'False
         NoIntegralHeight=   0   'False
         OwnerCompare    =   0   'False
         OwnerDraw       =   0   'False
         RiseColor       =   &H00FFFFFF&
         SearchCompare   =   1  'Case Insensitive
         SelectMode      =   0  'Normal
         SortColumn      =   0
         Sorted          =   -1  'True
         SortOrder       =   0  'Ascending
         StringCompare   =   0  'Case Sensitive
         TabIndex        =   5
         Top             =   0
         Version         =   "04.51"
         VerticalGrids   =   -1  'True
         VirtualMsgZone  =   0
         Width           =   9150
      End
   End
   Begin VideoSoftElastic VSElastic3
      Align           =   1  'Align Top
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   285
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   3
      Top             =   2415
      Width           =   9150
      Begin PictureBox Picture1
         BackColor       =   &H00C0C0C0&
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   1
         Left            =   0
         ScaleHeight     =   255
         ScaleWidth      =   9120
         TabIndex        =   6
         Top             =   0
         Width           =   9150
      End
   End
   Begin VideoSoftElastic VSElastic2
      Align           =   1  'Align Top
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   2130
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   1
      Top             =   285
      Width           =   9150
      Begin MListBox MList1
         AddItemHeight   =   0
         Alignment       =   0  'None
         AllowFocusRect  =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'Normal
         CheckColor      =   &H00000000&
         CheckStyle      =   0  'Cross Style
         DrawRegions     =   9
         EnableVirtualMsgs=   0   'False
         ExtendedSelect  =   0   'False
         FallColor       =   &H00808080&
         FindDirection   =   0  'Forward
         FindResult      =   0  'Update ListIndex
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         GridColor       =   &H00808080&
         GridStyle       =   0  'Solid
         Height          =   2130
         HiliteBackColor =   &H00000000&
         HiliteForeColor =   &H00000000&
         HorizontalGrids =   0   'False
         ImageRegion     =   0
         ImageType       =   0  'None
         ItemHeight      =   210
         ItemWidth       =   1560
         Left            =   0
         ListBoxStyle    =   0  'Fixed
         MaskingColor    =   &H00FFFFFF&
         MultiColumn     =   0   'False
         MultiSelect     =   0   'False
         NoIntegralHeight=   0   'False
         OwnerCompare    =   0   'False
         OwnerDraw       =   0   'False
         RiseColor       =   &H00FFFFFF&
         SearchCompare   =   1  'Case Insensitive
         SelectMode      =   0  'Normal
         SortColumn      =   0
         Sorted          =   -1  'True
         SortOrder       =   0  'Ascending
         StringCompare   =   0  'Case Sensitive
         TabIndex        =   2
         Top             =   0
         Version         =   "04.51"
         VerticalGrids   =   -1  'True
         VirtualMsgZone  =   0
         Width           =   9150
      End
   End
   Begin VideoSoftElastic VSElastic1
      Align           =   1  'Align Top
      AutoSizeChildren=   7  'Proportional
      BackColor       =   &H00C0C0C0&
      ChildSpacing    =   2
      Height          =   285
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9150
      Begin PictureBox Picture1
         BackColor       =   &H00C0C0C0&
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   0
         Left            =   0
         ScaleHeight     =   255
         ScaleWidth      =   15705
         TabIndex        =   7
         Top             =   0
         Width           =   15735
         Begin CommonDialog CMDialog1
            Left            =   0
            Top             =   0
         End
      End
   End
   Begin Menu mnu_File
      Caption         =   "&File"
      Begin Menu mnu_Load_Module
         Caption         =   "&Load Module"
      End
      Begin Menu mnu_Save_Dump
         Caption         =   "&Save Dump"
      End
      Begin Menu Blank1
         Caption         =   "-"
      End
      Begin Menu mnu_Exit
         Caption         =   "&Exit"
      End
   End
   Begin Menu mnu_Option
      Caption         =   "&Options"
      Begin Menu mnu_Free_Task
         Caption         =   "free &Task"
      End
      Begin Menu mnu_Free_Module
         Caption         =   "free &Module"
      End
   End
   Begin Menu mnu_Sort
      Caption         =   "&Sort"
      Begin Menu mnu_Sorting
         Caption         =   "by &Name"
         Index           =   0
      End
      Begin Menu mnu_Sorting
         Caption         =   "by h&Module"
         Index           =   1
      End
      Begin Menu mnu_Sorting
         Caption         =   "by &Version"
         Index           =   2
      End
      Begin Menu mnu_Sorting
         Caption         =   "by File &Size"
         Index           =   3
      End
      Begin Menu mnu_Sorting
         Caption         =   "by &Full name"
         Index           =   4
      End
      Begin Menu mnu_Sorting
         Caption         =   "by File &Type"
         Index           =   5
      End
   End
   Begin Menu mnu_Update
      Caption         =   "&Update!"
   End
End
Option Explicit

Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
Declare Sub TerminateApp Lib "toolhelp.dll" (ByVal hTask As Integer, ByVal wFlags As Integer)

Const chanSaveDump = 1

Const BKS = "\"
Const SMP = "."

Dim NUL           As String * 1
Dim TBT           As String * 1

Dim FormatTask    As String
Dim FormatSize    As String

Dim LenFormatTask As Integer
Dim LenFormatSize As Integer

Sub DisplayMlistTitle (CtlMlst As Control, CtlPct As Control) '~id~'1
   Call mcPushID( 1 ): On Error Goto mcIDError_0001

   Dim i                As Integer
   Dim j                As Integer
   Dim retval           As Integer
   Dim pctOffsetX       As Long
   Dim pctOffsetY       As Long
   Dim newOffsetX       As Long
   Dim ItemTitle        As String
   Dim Title            As String
   Dim ItemCenterTitle  As Integer

   j = CtlMlst.DrawRegions

   pctOffsetX = (30 / Screen.TwipsPerPixelX)
   pctOffsetY = (((CtlPct.Height - CtlPct.TextHeight("Ag")) / 2) / Screen.TwipsPerPixelY)

   ItemCenterTitle = IIf(Val(Left$(CtlMlst.Tag, 1)) = 1, True, False)
   Title = Mid$(CtlMlst.Tag, 2)

   For i = 1 To j
      ItemTitle = cGetIn(Title, BKS, i)
      If (ItemCenterTitle = True) Then
         newOffsetX = pctOffsetX + (((CtlMlst.ItemLength(i) - CtlPct.TextWidth(ItemTitle)) \ 2) / Screen.TwipsPerPixelX)
      Else
         newOffsetX = pctOffsetX
      End If
      retval = TextOut(CtlPct.hDC, newOffsetX, pctOffsetY, ItemTitle, Len(ItemTitle))
      pctOffsetX = pctOffsetX + (CtlMlst.ItemLength(i) / Screen.TwipsPerPixelX)
   Next i

   Call mcPopLastID
   Exit Sub
   mcIDError_0001:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub Form_Load () '~id~'2
   Call mcInitID(-1, True, 3, True)
   Call mcPushID( 2 ): On Error Goto mcIDError_0002

   Me.Tag = Me.Caption

   Call InitVariable
   Call InitTask
   Call InitModule

   mnu_Update_Click
   mnu_Sorting_Click 5

   Call mcPopLastID
   Exit Sub
   mcIDError_0002:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub Form_Resize () '~id~'3
   Call mcPushID( 3 ): On Error Goto mcIDError_0003
   If (Me.WindowState = 1) Then
      Me.Caption = cGetIn("" & Me.Tag, "'", 3)
   Else
      Me.Caption = Me.Tag
   End If
   Call mcPopLastID
   Exit Sub
   mcIDError_0003:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub InitLoadDlg () '~id~'4
   Call mcPushID( 4 ): On Error Goto mcIDError_0004

   Dim Tmp        As String

   Tmp = ""

   Tmp = Tmp + "Modules (*.exe;*.dll)|*.exe;*.dll|"
   Tmp = Tmp + "Librairies (*.dll)|*.dll|"
   Tmp = Tmp + "Executables (*.exe)|*.exe|"
   Tmp = Tmp + "Drivers (*.drv)|*.drv|"
   Tmp = Tmp + "Applets (*.cpl)|*.cpl|"
   Tmp = Tmp + "Fonts (*.fon;*.fot)|*.fon;*.fot|"
   Tmp = Tmp + "Screen Savers (*.scr)|*.scr|"
   Tmp = Tmp + "All Files (*.*)|*.*"

   CMDialog1.Filter = Tmp
   CMDialog1.FilterIndex = 0

   Call mcPopLastID
   Exit Sub
   mcIDError_0004:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub InitModule () '~id~'5
   Call mcPushID( 5 ): On Error Goto mcIDError_0005

   MList2.ItemLength(1) = 1200
   MList2.ItemLength(2) = 750
   MList2.ItemLength(3) = 630
   MList2.ItemLength(4) = 900
   MList2.ItemLength(5) = 810
   MList2.ItemLength(6) = MList2.Width
   MList2.ItemLength(7) = 90

   MList2.DrawFlags(2) = 37
   MList2.DrawFlags(3) = 37
   MList2.DrawFlags(5) = 38

   Call mcPopLastID
   Exit Sub
   mcIDError_0005:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub InitSaveDlg () '~id~'6
   Call mcPushID( 6 ): On Error Goto mcIDError_0006

   Dim Tmp        As String

   Tmp = ""

   Tmp = Tmp + "Text File (*.txt)|*.txt|"
   Tmp = Tmp + "All Files (*.*)|*.*"

   CMDialog1.Filter = Tmp
   CMDialog1.FilterIndex = 0

   Call mcPopLastID
   Exit Sub
   mcIDError_0006:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub InitTask () '~id~'7
   Call mcPushID( 7 ): On Error Goto mcIDError_0007

   MList1.Tag = "0Name          \hTask  \hParent\hEvents\hInst\Version  \File Size \Full Name\"
   MList2.Tag = "0Name          \hModule\Usage  \Version  \File Size \Full Name\"

   MList1.ItemLength(1) = 1200
   MList1.ItemLength(2) = 750
   MList1.ItemLength(3) = 630
   MList1.ItemLength(4) = 630
   MList1.ItemLength(5) = 630
   MList1.ItemLength(6) = 900
   MList1.ItemLength(7) = 810
   MList1.ItemLength(8) = MList1.Width
   MList1.ItemLength(9) = 90

   MList1.DrawFlags(2) = 37
   MList1.DrawFlags(3) = 37
   MList1.DrawFlags(4) = 37
   MList1.DrawFlags(5) = 37
   MList1.DrawFlags(7) = 38

   Call mcPopLastID
   Exit Sub
   mcIDError_0007:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub InitVariable () '~id~'8
   Call mcPushID( 8 ): On Error Goto mcIDError_0008

   NUL = Chr$(0)
   TBT = Chr$(9)

   FormatTask = "0000"
   FormatSize = "#,###,###"

   LenFormatTask = Len(FormatTask)
   LenFormatSize = Len(FormatSize)

   Call mcPopLastID
   Exit Sub
   mcIDError_0008:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub MList1_Click () '~id~'9
   Call mcPushID( 9 ): On Error Goto mcIDError_0009

   If (MList1.ListIndex < 0) Then Call mcPopLastID: Exit Sub

   Dim Tmp        As String

   mnu_Free_Task.Enabled = True

   MList1.ActiveRegion = 8
   Tmp = Trim$(MList1.ListRegion(MList1.ListIndex))
   VSElastic5.Caption = " " + cGetFileVersion(Tmp, VER_FILE_DESCRIPTION) + " -> " + cGetFileVersion(Tmp, VER_COMPANY_NAME)

   Call mcPopLastID
   Exit Sub
   mcIDError_0009:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub MList1_DblClick () '~id~'10
   Call mcPushID( 10 ): On Error Goto mcIDError_0010
   mnu_Free_Task_Click
   Call mcPopLastID
   Exit Sub
   mcIDError_0010:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub MList2_Click () '~id~'11
   Call mcPushID( 11 ): On Error Goto mcIDError_0011

   If (MList2.ListIndex < 0) Then Call mcPopLastID: Exit Sub

   Dim Tmp        As String

   mnu_Free_Module.Enabled = True

   MList2.ActiveRegion = 6
   Tmp = Trim$(MList2.ListRegion(MList2.ListIndex))
   VSElastic5.Caption = " " + cGetFileVersion(Tmp, VER_FILE_DESCRIPTION) + " -> " + cGetFileVersion(Tmp, VER_COMPANY_NAME)

   Call mcPopLastID
   Exit Sub
   mcIDError_0011:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub MList2_DblClick () '~id~'12
   Call mcPushID( 12 ): On Error Goto mcIDError_0012
   mnu_Free_Module_Click
   Call mcPopLastID
   Exit Sub
   mcIDError_0012:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Exit_Click () '~id~'13
   Call mcPushID( 13 ): On Error Goto mcIDError_0013
   Set frmWPS = Nothing
   Unload Me
   Call mcPopLastID
   Exit Sub
   mcIDError_0013:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Free_Module_Click () '~id~'14
   Call mcPushID( 14 ): On Error Goto mcIDError_0014

   If (MList2.ListIndex < 0) Then Call mcPopLastID: Exit Sub

   Screen.MousePointer = 11

   Dim MODULEENTRY   As tagMODULEENTRY
   Dim i             As Integer
   Dim hModule       As Integer
   Dim wcUsage       As Integer
   Dim Tmp           As String

   MList2.ListIndex = MList2.ListIndex

   MList2.ActiveRegion = 1
   Tmp = Trim$(MList2.ListRegion(MList2.ListIndex))

   If (MsgBox("UnLoad '" + Tmp + "'", 1 Or 256, "Modules") = 1) Then

      hModule = MList2.ItemData(MList2.ListIndex)

      Call cUnloadDLL(hModule)

      If (cModuleFind(MODULEENTRY, Tmp) = False) Then
         MList2.RemoveItem MList2.ListIndex
         MList2.ListIndex = MList2.ListIndex
      Else
         MsgBox Tmp + " can't be UnLoaded."
      End If

   End If

   Screen.MousePointer = 0

   Call mcPopLastID
   Exit Sub
   mcIDError_0014:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Free_Task_Click () '~id~'15
   Call mcPushID( 15 ): On Error Goto mcIDError_0015

   If (MList1.ListIndex < 0) Then Call mcPopLastID: Exit Sub

   Screen.MousePointer = 11

   Dim TASKENTRY     As tagTASKENTRY
   Dim hInstance     As Integer
   Dim Tmp           As String
   Dim n             As Integer

   MList1.ActiveRegion = 1
   Tmp = Trim$(MList1.ListRegion(MList1.ListIndex))

   If (MsgBox("Terminate '" + Tmp + "'", 1 Or 256, "Tasks") = 1) Then

      hInstance = MList1.ItemData(MList1.ListIndex)

      Call TerminateApp(hInstance, 1)

      DoEvents

      If (cTaskFind(TASKENTRY, hInstance) = False) Then
         MList1.RemoveItem MList1.ListIndex
         MList1.ListIndex = MList1.ListIndex
      Else
         MsgBox Tmp + " can't be UnLoaded."
      End If

   End If

   Screen.MousePointer = 0

   Call mcPopLastID
   Exit Sub
   mcIDError_0015:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Load_Module_Click () '~id~'16
   Call mcPushID( 16 ): On Error Goto mcIDError_0016

   Dim Tmp        As String
   Dim hInstance  As Integer

   Call InitLoadDlg

   CMDialog1.Action = 1
   Tmp = Trim$(CMDialog1.Filename)

   If (Len(Tmp) > 0) Then
      hInstance = LoadLibrary(Tmp)
      If (hInstance > 32) Then
         mnu_Update_Click
      Else
         MsgBox Tmp + " can't be loaded."
      End If
   End If

   Call mcPopLastID
   Exit Sub
   mcIDError_0016:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Option_Click () '~id~'17
   Call mcPushID( 17 ): On Error Goto mcIDError_0017
   mnu_Free_Task.Enabled = (MList1.ListIndex >= 0)
   mnu_Free_Module.Enabled = (MList2.ListIndex >= 0)
   Call mcPopLastID
   Exit Sub
   mcIDError_0017:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Save_Dump_Click () '~id~'18
   Call mcPushID( 18 ): On Error Goto mcIDError_0018

   Dim Tmp        As String
   Dim hInstance  As Integer
   Dim i          As Integer
   Dim j          As Integer
   Dim n          As Integer

   Call InitSaveDlg

   CMDialog1.Action = 2
   Tmp = Trim$(CMDialog1.Filename)

   If (Len(Tmp) > 0) Then

      Close #chanSaveDump
      Open Tmp For Output Shared As #chanSaveDump

      Tmp = Mid$(MList1.Tag, 2)
      Call cChangeChars(Tmp, BKS, TBT)
      Print #chanSaveDump, Tmp

      n = MList1.ListCount - 1

      For i = 0 To n
         For j = 1 To 8
            MList1.ActiveRegion = j
            Print #chanSaveDump, MList1.ListRegion(i); TBT;
         Next j
         Print #chanSaveDump, ""
      Next i

      n = MList2.ListCount - 1

      Tmp = Mid$(MList2.Tag, 2)
      Call cChangeChars(Tmp, BKS, TBT)
      Print #chanSaveDump, ""
      Print #chanSaveDump, Tmp

      For i = 0 To n
         For j = 1 To 6
            MList2.ActiveRegion = j
            Print #chanSaveDump, MList2.ListRegion(i); TBT;
         Next j
         Print #chanSaveDump, ""
      Next i

      Close #chanSaveDump

   End If

   Call mcPopLastID
   Exit Sub
   mcIDError_0018:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Sorting_Click (Index As Integer) '~id~'19
   Call mcPushID( 19 ): On Error Goto mcIDError_0019

   Dim i       As Integer
   Dim j       As Integer
   Dim k       As Integer

   Screen.MousePointer = 11

   For k = 0 To 5
      mnu_Sorting(k).Checked = (k = Index)
   Next k

   Select Case Index
      Case 0   'name
         i = 0
         j = 0
      Case 1   'hmodule
         i = 1
         j = 1
      Case 2   'version
         i = 5
         j = 3
      Case 3   'size
         i = 6
         j = 4
      Case 4   'full name
         i = 7
         j = 5
      Case 5   'type
         i = 8
         j = 6
   End Select

   cDisableRedraw MList1.hWnd
   cDisableRedraw MList2.hWnd

   MList1.SortColumn = i + 1
   MList1.Resort = 1

   MList2.SortColumn = j + 1
   MList2.Resort = 1

   cEnableRedraw MList1.hWnd
   cEnableRedraw MList2.hWnd

   Screen.MousePointer = 0

   Call mcPopLastID
   Exit Sub
   mcIDError_0019:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub mnu_Update_Click () '~id~'20
   Call mcPushID( 20 ): On Error Goto mcIDError_0020

   Dim FILEVERSIONINFO  As tagFILEVERSIONINFO
   Dim MODULEENTRY      As tagMODULEENTRY
   Dim TASKENTRY        As tagTASKENTRY
   Dim Test             As Integer
   Dim Tmp              As String
   Dim Tmp1             As String
   Dim Tmp2             As String
   Dim i                As Integer
   Dim j                As Long
   Dim TaskLoaded       As String

   Screen.MousePointer = 11

   TaskLoaded = ""

   cDisableRedraw MList1.hWnd
   cDisableRedraw MList2.hWnd

   MList1.Clear
   MList2.Clear

   Test = cTasks(TASKENTRY, True)
   Do While (Test = True)
      Tmp = ""
      TaskLoaded = TaskLoaded + cGetIn(TASKENTRY.szModule, NUL, 1) + BKS
      Tmp = Tmp + Left$(cGetIn(TASKENTRY.szModule, NUL, 1) + Space$(10), 10) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.hTask), LenFormatTask) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.hTaskParent), LenFormatTask) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.wcEvents), LenFormatTask) + TBT
      Tmp = Tmp + Right$(FormatTask + Hex$(TASKENTRY.hInst), LenFormatTask) + TBT
      Tmp1 = cEXENameTask(TASKENTRY.szModule)
      Tmp = Tmp + Left$(cGetFileVersion(Tmp1, VER_VERSION_FILE) + Space$(12), 12) + TBT
      j = cFileSize(Tmp1)
      Tmp = Tmp + Right$(Space$(LenFormatSize) + Format$(j, FormatSize), LenFormatSize) + TBT
      Tmp = Tmp + Tmp1 + TBT
      Tmp2 = cGetIn(cReverse(Tmp1), BKS, 1)
      Tmp = Tmp + cReverse(cGetIn(Tmp2, SMP, 1)) + SMP + cReverse(cGetIn(Tmp2, SMP, 2))
      MList1.AddItem Tmp
      MList1.ItemData(MList1.NewIndex) = TASKENTRY.hTask
      Test = cTasks(TASKENTRY, False)
   Loop

   Test = cModules(MODULEENTRY, True)
   Do While (Test = True)
      If (InStr(TaskLoaded, cGetIn(MODULEENTRY.szModule, NUL, 1) + BKS) = 0) Then
         Tmp = ""
         Tmp = Tmp + Left$(cGetIn(MODULEENTRY.szModule, NUL, 1) + Space$(10), 10) + TBT
         Tmp = Tmp + Right$(FormatTask + Hex$(MODULEENTRY.hModule), LenFormatTask) + TBT
         Tmp = Tmp + Right$(FormatTask + Hex$(MODULEENTRY.wcUsage), LenFormatTask) + TBT
         Tmp1 = cGetIn(MODULEENTRY.szExePath, NUL, 1)
         Tmp = Tmp + Left$(cGetFileVersion(Tmp1, VER_VERSION_FILE) + Space$(12), 12) + TBT
         j = cFileSize(Tmp1)
         Tmp = Tmp + Right$(Space$(LenFormatSize) + Format$(j, FormatSize), LenFormatSize) + TBT
         Tmp = Tmp + Tmp1 + TBT
         Tmp2 = cGetIn(cReverse(Tmp1), BKS, 1)
         Tmp = Tmp + cReverse(cGetIn(Tmp2, SMP, 1)) + SMP + cReverse(cGetIn(Tmp2, SMP, 2))
         MList2.AddItem Tmp
         MList2.ItemData(MList2.NewIndex) = MODULEENTRY.hModule
      End If
      Test = cModules(MODULEENTRY, False)
   Loop

   cEnableRedraw MList1.hWnd
   cEnableRedraw MList2.hWnd

   Screen.MousePointer = 0

   Call mcPopLastID
   Exit Sub
   mcIDError_0020:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub Picture1_Paint (Index As Integer) '~id~'21
   Call mcPushID( 21 ): On Error Goto mcIDError_0021
   Select Case Index
      Case 0: Call DisplayMlistTitle(MList1, Picture1(Index))
      Case 1: Call DisplayMlistTitle(MList2, Picture1(Index))
   End Select
   Call mcPopLastID
   Exit Sub
   mcIDError_0021:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub

Sub VSElastic4_RealignFrame () '~id~'22
   Call mcPushID( 22 ): On Error Goto mcIDError_0022
   MList2.Height = ((VSElastic4.Height - (VSElastic5.Height \ 1.5)) \ MList2.ItemHeight) * MList2.ItemHeight
   Call mcPopLastID
   Exit Sub
   mcIDError_0022:
   If (mcIDErrorHandler(Err) = True) Then Resume Next
End Sub